;; convert from audio samples to clock (define samples->clock (lambda (time) (let* ((c (clock:ad:clock)) (t1 (car c)) (t2 (cdr c))) (+ t2 (/ (- time t1) *samplerate*)))))